home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / smalleiffel / sys / gc_lib / m68k.c < prev    next >
Text File  |  2000-03-25  |  268b  |  16 lines
  1. /* For Motorola 68K Garbage Collector marking code. */
  2.  
  3. void marking_loop(void){
  4.   void**sp;
  5.   void*stack_top={NULL,NULL};
  6.   sp=stack_top;
  7.   for(;sp>=stack_bottom;sp--)
  8.     gc_mark(*sp);
  9. }
  10.  
  11. void mark_stack_and_registers(void){
  12.   asm(" ld A0 SP");
  13.   marking_loop();
  14. }
  15.  
  16.